home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / clipper / nannws33.zip / CURTEST.PRG < prev    next >
Text File  |  1988-11-01  |  529b  |  29 lines
  1. * Program: CurTest.prg
  2. * Author:  Gerry Braganza
  3. * Version: Clipper Summer '87
  4. * Note(s): Change cursor size so that cursor fills an entire
  5. *          character block.
  6. *
  7. * Copyright (c) 1988 Nantucket Corp.
  8.  
  9. x = 0
  10. y = 13
  11.  
  12. * Call cursor function.
  13. ? "Cursor fills entire block"
  14. CurSize(x,y) 
  15. INKEY(0)
  16.     
  17. * Cursor is in the upper character block.
  18. x = 0 
  19. y = 2
  20. ? "Cursor is in the upper block"
  21. CurSize(x,y)
  22. INKEY(0)
  23.  
  24. * Return normal cursor size.
  25. x = 12
  26. y = 13
  27. ? "Cursor returns to normal"
  28. CurSize(x,y)
  29.